home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Magnum One
/
Magnum One (Mid-American Digital) (Disc Manufacturing).iso
/
d12
/
v8n08.arc
/
COLORS.BAS
next >
Wrap
BASIC Source File
|
1989-03-28
|
386b
|
12 lines
CLS
FOR Z = 0 TO 7
LOCATE 5+Z, 10: COLOR Z, 0: PRINT Z; STRING$(25, 219);
COLOR 7, 0: PRINT TAB(45);: COLOR Z+8: PRINT USING "##"; Z+8;
PRINT " "; STRING$(25, 219)
NEXT
COLOR 7,0: PRINT: PRINT TAB(15);
INPUT "Enter your choice of color for chart and lettering: ",CLR1
SCREEN 2, 1: OUT 985, (CLR1 - (CLR1 = 0)): CLS
LINE (0, 0)-(639, 199)
X$ = INPUT$(1): SCREEN 0